function bn = horn(coefs,x0)

	bn = 0;
	for i = 1 : length(coefs)

	  bn =  coefs(i) + bn * x0	
    
	endfor
	
endfunction

% se llama con p = horn([1 -5 6 2],2); para evaluar a x³-5x²+6x+2

